﻿Imports System.Data.SqlClient
Public Class BacKupDAO
    Dim bak As DataProvider
    Function Backup(ByVal str As Integer) As DataTable
        Dim data As New DataTable
        Dim sql As String
        sql = "Data Source=" + str + "Initial Catalog=DBNGK;Integrated Security=True"
        data = bak.ExecuteQuery(sql)
        Return data
    End Function
End Class
